Excel Userformlarımızı ve üzerindeki nesneleri, çalışma sayfamızda kullandığımız şablon renklerine uygun bir şekilde düzenlemek isteyebiliriz. Userformumuzun renklerini, belirlediğimiz hücrelere doldurduğumuz renklerden alıyor olacak. Excel hücre rengi değişince otomatik olarak userformumuz ve üzerindeki nesneler de hızlı bir şekilde çalışma sayfamızla uyumlu renk paletiyle boyanacaktır... Alttaki Kodları Userformumuzun Initialize bölümüne yapıştırın ve formumuzun referans alacağı hücreleri renklerle doldurun. Alttaki Userform hücre başvurularını kendi sayfa ve hücrelerinize göre düzenlemeyi unutmayın... Esen Kalın...  Private Sub UserForm_Initialize() Dim nesne As Control For Each nesne In Me.Controls If TypeName(nesne) = "TextBox" Then nesne.BackColor = Sheets("bilgiler").Range("l5").Interior.Color If TypeName(nesne) = "Frame" Then nesne.BackColor = Sheets("bilgiler").Range("l4").Interior.Color If TypeName(nesne) = "CommandButton" Then nesne.BackColor = Sheets("bilgiler").Range("l4").Interior.Color Next Me.BackColor = Sheets("bilgiler").Range("l4").Interior.Color End Sub

Soru:Arkadaşlar Merhaba,

Bir soruna takıldım. Excelin kendi fonksiyonlarıyla uğraştım yapamadım.

Soru şu : A1 hücresine doğum yeri ve tarihi yazılacak. Örneğin; A1 hücresine “Bursa 01011970” yazılacak. (dikkat edilirse tarihler arasına nokta koymadım) Entere basıldığı an; “Bursa 01.01.1970” şeklinde olması gerekir. Yani noktayı kendiliğinden koyacak. Acaba bunu makroyla yapmak mümkün müdür?

NOT : Doğrudan hücre içerisine yazılacağı için excelin kendi formülü çözüm teşkil etmiyor.

Hepinize saygılarımı sunuyorum…

Cevap:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True ActiveCell.Replace What:=".", Replacement:="" ActiveCell.Value = Mid(ActiveCell, 1, Len(ActiveCell) - 9) & " " & Left(Right(Right(ActiveCell.Value, 8), 8), 2) & "." & Left(Right(Right(ActiveCell.Value, 8), 6), 2) & "." & Right(Right(ActiveCell.Value, 8), 4) End Sub Kodlar: Bülent Öztürk

Aylık sabit bir maaşla çalışıyorsanız, aldığınız maaş ve her ay rutin olarak ödenen borçlarınızda maalesef sizi takip edecektir. Her ne kadar hesaplarımızı kayıt altında tutsakda dengeyi sağlamak pek mümkün olmuyor.

Eğer sizde borçlarınızı bir excel sayfasından takip etmek istiyorsanız bu küçük dosya işinize yarayacaktır. Dosyanın yaptığı işlem basit. Sadece yeşil renkli rakamları topluyor. Siz ödediğiniz veya ödeyeceğiniz borcu yeşil yapıyorsunuz, diğer hesaplama işlemleri excel vba kodları sayesinde otomatik yapılıyor.

şeklinde öğrenci notlarını gösterem bir tablomuz olsun

Yapacağımız işlemleri liste halinde yazalım

1- Endüşük Not 2- Endüşük Not hangi öğrenciye ait 3- Endüşük notu alan öğrenciyi ve aldığı notu rakamla ve yazıyla  birleştir formülünü  kullanarak metnin içine otomatik yazdırmak